home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / aakxref.arc / NEWPAGE.PAS < prev    next >
Pascal/Delphi Source File  |  1986-04-25  |  2KB  |  57 lines
  1. (********************************************************************)
  2. (* THIS PROCEDURE WILL CREATE A NEW PAGE FOR THE OUTPUT STREAM      *)
  3. (* INPUT        : fv, File_Name , Title                             *)
  4. (* INPUT/OUTPUT : NONE                                              *)
  5. (* OUTPUT       : NONE                                              *)
  6. (* USES         : MODIFIES First_Page, Cur_Page, Last_Page,         *)
  7. (*              : Page_Numb                                         *)
  8. (* CALLS        : Cur_Date0,Cur_Time0,New_Page_Ptr,New_Line_Ptr     *)
  9. (*              : Print_Page                                        *)
  10. (* ERRORS       : NONE                                              *)
  11. (* GLOBAL VARS  : NONE                                              *)
  12. (* SUBJECT      : PRINTER , NEW PAGE DONE WITH PREVIOUS             *)
  13. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 003   *)
  14. (********************************************************************)
  15.  
  16. PROCEDURE New_Page                     ( VAR fv        : TEXT ;
  17.                                              File_Name : File_Str ;
  18.                                              Title     : TitleType ) ;
  19.  
  20. VAR
  21.    Squeezed    : BOOLEAN ;
  22.    L           : Line_Ptr ;
  23.    P           : Page_Ptr ;
  24.    date        : Date0 ;
  25.    Date_Stuff1, Date_Stuff, Tem : Work_String ;
  26.  
  27. BEGIN (* PROC *)
  28.     (* CHECK IF PRINTER AND NOT FIRST PAGE *)
  29.    Date_Stuff  := Title + ': ' + File_Name ;
  30.    Date_Stuff1 := 'Listed ' + Cur_date0 + '  ' + Cur_Time0 +
  31.                    '    Created ' + File_Time_Stamp ( fv ) ;
  32.    New_Page_Ptr ( First_Page , Cur_Page , Last_Page ) ;
  33.    WITH Cur_Page^ DO
  34.    BEGIN (* WITH *)
  35.       Out_Device := Output_Device ;
  36.       New_Line_Ptr ( L ) ;
  37.       First_Line := L ;
  38.       Last_Line  := L ;
  39.       New_Line_Ptr ( L ) ;
  40.       Last_Line^.Next := L ;
  41.       Last_Line  := L ;
  42.       L^.Line := ( Date_Stuff ) ;
  43.       New_Line_Ptr ( L ) ;
  44.       Last_Line^.Next := L ;
  45.       Last_Line  := L ;
  46.       L^.Line := ( Date_Stuff1 ) ;
  47.       New_Line_Ptr ( L ) ;
  48.       Last_Line^.Next := L ;
  49.       Last_Line  := L ;
  50.       Max_CPL := 78 ;
  51.       Cur_LPP := 4 ;
  52.    END ; (* WITH *)
  53.    IF ( First_Page <> Last_Page )
  54.    THEN Print_Page ( First_Page , Last_Page , Page_Numb ) ;
  55. END ; (* PROC *)
  56.  
  57.